﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports SuporteService
Imports System.Net
Imports SuporteDominio
<TestClass()> Public Class UsuarioTest



    <TestMethod()> Public Sub Login()

        Dim usuario As New Usuario
        'usuario = serviceUsuario.Login("williamnwz", "#abc123", DateTime.Now, "127.0.0.1", 1)


        Assert.Equals("williamnwz@gmail.com", usuario.EMAIL)
        Assert.Equals("williamnwz", usuario.LOGIN)
        Assert.Equals(1, usuario.ID_USUARIO)

        'Assert.IsTrue(Not usuario Is Nothing)


    End Sub

End Class